在AD中如果要新增組織單位，傳統模式必須在Active Directory 使用者及電腦一個個建立，當然，透過script的自動化，也可以一次大量建立多個組織單位

wscript.echo"現在開始建立組織單位"
'Determine the LDAP path for your domain
Set Root=GetObject("LDAP://RootDSE")
DomainPath=Root.Get("DefaultNamingContext")
Set Domain=GetObject("LDAP://"& DomainPath)
Set ouLab=Domain.Create("organizationalUnit","OU=新組織單位名稱")
ouLab.Put"Description","新組織單位名稱"
ouLab.SetInfo
wscript.echo"建立組織單位完成"
Function CreateOU(claname)
Set TargetOU=GetObject("LDAP://OU=新組織單位名稱,"& DomainPath)
Set newou=TargetOU.Create("organizationalUnit","OU="& claname)
newou.Put"Description",claname
newou.SetInfo
End Function